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Ztitle "FILECMDS File-Oriented Phone Commands’ 
module filecmds ( 
ident='V04-000') = begin 


Se 
2s 
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Abstract: This aotyie handles the ion user commands: 
FACSIMILE Include file contents in conversation. 


TRANSCRIBE Make a transcript of conversation. 


Environment: 


SOVEARG 


AunFwr—O0e@ 


Modified By: 
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i 

i 

i 

i 

i 

i 

Author: Paul C. Anagnostopoulos, Creation Date: 6 November 1980 
i. : Version 
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v04-000 Module Declarations =300 71382 6: 93: 38 PHONE. SRCJF ILECMDS.632;1 
>; 48 047 1 %sbttl "Module Declarations' 

F855 BR LE clacertan ord toe 

3 ! raries and Requires: 

; 8 036 1! . 

; 2g ' 52 1 Library ° “3 s$library: starlet.l32'; 

: ze 3 : require ‘phonereq'; 

3 2 8 a3. eit 

2 0384 1! Table of Contents: 

; @ 0385 1! 

; WF 8 $ 1 

;: 1 forward routine 

3; 61 0388 =| phn$facsimile_cmd: novalue, 

; 6¢ 0389 1 phn$facsimile2: novalue, 

“Wed O339 { phn$transcribe_cmd: novalue; 

; 0391 1 

. > O38 3 

3 66 B337 : The following macro is used in PHNSTRANSCRIBE_CMD: 
; @& 0395 1 

5 8 M 0396 1 macro transcribe(length, address) = 

: 70 40397 1 if dec(line_counter) Lss 0 then 

i m 0398 1 pege,. gé_headin sQ; 

EE M0399 1 trans_rabCrab$w “rs = length; 

3 7 M0400 1 trans_rabCrab$l—rbf) = address; 

: 74 M0401 1 status = Sput(rab=trans_rab); 

s 75 ™ 0402 1 chockt, status); 

co) ae 0403 1 2%; 

eM 4 0404 1 

; «678 0405 1! 

: 79 0406 1 ! External References: 

>; 0407 1! 

i. a 0408 1 

B¢ 0409 1 external routine 

3 0410 1 phn$conversing, 

; 684 0411 1 phn$fresh_screen, 

; Boi6 1 phn$inform, 

; 86886 04135 1 Bhnskill. ctl 

; a 0414 1 phn$queue_ smb, 

; BB 0415 1 phn$talk; 

; 0416 1 

; 0417 1! 

2s 213 1 ! Own Variables: 

: 3 419 1! 

a 420 1 

; 494 421 1 own 

; 4 P ; 3 ’ facs_fab: $fab( taceget ! RMS FAB for facsimile file. 
; 97 424 1 facs_buffer: blockt79 byte] ! Buffer for getting file records. 
> 98 P0425 1 facs_rab: $rab( fab=facs_fab, | RMS RAB for facsimile file. 
; 99 P $ 1 =peq. 

: 100 P 1 

: 101 P 0428 1 ubt= “193. buffer, 

3; 102 9 1 usz= 
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sbttl *PHNSFACSIMILE_CMD = Include File in Conversation’ 
F 


unctional Description: 
This routine handles the FACSIMILE command, which is used to 
include the contents of a file into the conversation. 


Formal Parameters: 
acs_spec Address of descriptor of file specification. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
n 


Side Effects: 


global routine phn$facsimile_cmd(facs_spec): novalue = begin 


bind 
spec_dsc = .facs_spec: descriptor; 


local 
status: long; 


! Check to make sure we are currently talking to someone. Otherwise facsing 
! makes no sense. 


if not phn$conversing() then ( 
phn$inform(phn$_notconv); 
return; 


! Now we have to open the file we are going to facs. It is also weceeers to 
! connect the RAB so we can read records. If either of these operations fails, 
! tell the user why. 


facs_fabCfab$b_fns] = Spee Gees ten 3 
facs_fablfab$l_fnaj] = .spec_dsclptr 
status = SopenTfab=facs_fsh); 

if .status nequ rms$_normal tien ( 
phn$Sinform(.status); 

return; 


); 

status = $connect(rab=facs_rab); 

if .status nequ rms$_normal then ( 
Se loge) febet ics fab); 
phn$inform(.status); 
return; 
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ve 
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phnSinform(phn$_facscan); 
! Set the ‘facsimile in progress’ flag so it can be cancelled if necessary. 
phn$gv_facsimile = true; 


! Talk a carriage return so the file will start on a new line. Queue a 
! steering message that will force us to facs the first record. 


SNA AAA AAA OO 
NOUS WN HOOD ONOULE wiry 


phn$Stalk(describe(%char(ret))); 
phn$queue_smb(smb__facsimile2); 


D 

C 

! Tell the user how to cancel the operation. 
return; 

1 
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SANS 


-TITLE FILECMDS FILECMDS File-Oriented Phone Commands 
-IDENT \V04-000\ 


-PSECT S$PLITS,NOWRT,NOEXE,2 


OD Q0000 P.AAB: .ASCII <13> : 

00001 «BLK 3 
00000001 00004 P.AAA: .LONG 1 : 
00000000" 00008 «ADDRESS P.AAB : 


.PSECT SOWNS,NOEXE,2 
03 00000 FACS_FAB: 


BYTE 3 3 

50 00001 -BYTE 80 3 

0000 Bp boE «WORD 0Q : 
00000000 00004 -LONG QO ; 
00000000 00008 -LONG 0 3 
00000000 0000C -LONG 0 5 
00000000 00010 -LONG 0 3 
0000 00014 WORD 8 3 
BRt6 BYTE 3 

001 BYTE ; 

000000 0018 LONG 3 
1C BYTE 3 

10 BYTE 3 

BE BYTE 3 

8 1F BYTE ; 

00 020 LONG 2 
024 LONG 3 

8 LONG 3 

5 LONG 3 

LONG 3 

BYTE 3 

5 BYTE ; 

- WORD 3 

0000 ° LONG 3 
C WORD 3 
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G 
ADDRESS FACS_FAB 
- LONG 


.EXTRN PHNS_OK, PHNS_ANSWERED 

“EXTRN PHNS— BUSYCALL - PHN$_CANCALL 
*EXTRN PHNS= CAN PHNS CONF CALL 
“EXTRN PHNS~ “DEAD Rens D ETLINK 
XTRN PLING =DIRCAN. PH nse FACSCAN 
XTRN PHN Nee HELPCAN ves 

XTRN PHNS"JUSTRANG, "PHN “LOGGEDOF 
XTRN PHNS~ “REJECTED. P S“RING 
XTRN PHNS$~REJECT Sosa 

XTRN PHNS~ CENDIN NGMAIL 

XTRN PHNS ~ =BADCHD PHNS _BADHELP 
XTRN PHNS_BADSMB, PHNS$_BADSPEC 

X PMISSING 


V 
XTRN PHNS~IVREDUNCALL 

XTRN PHN “LINKERROR PHNS$_NEEDUSER 
XTRN PHNS$~NOCALL NOROLDS 
XTRN PHNS “NOPORTS, PONNS _NOPRIV 
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; Routine Size: 


tag File-Oriented Phone 
PHNSFACSIMILE_CMD = Include F 
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000000006 
00006 


20006 
00006 
00006 
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PHNSGL VIEWPORT Size 
PHN$GB-SCROLL, PHN$GQ_PUBHEAD 
PHNS$GB-FLAGS, PHNSCONVERSING 
PHNSFRESH_ SCREEN 

PHNS INE ORR PHNSKILL CTL 
PHNSQUEUE_SMB, PHNSTALK 
SYSSOPEN, SYSS$CONNECT 
SYSSCLOSE 


SCODES,NOWRT,2 
pier OC SIRILE Coe. Save R2,R3 
FACS_FAB, R 


FACS SPEC, R2 
#0, PHNSCONVERSING 


#PHNS_NOTCONV 

(R2), FACS_FAB+52 
4(R25, FACS_FAB+44 
#1, SYSSOPEN 

RO, STATUS 

satus, #555357 


FACS_RAB 
#1, SYSSCONNECT 


RO, U 
pans. #65537 


R 

#1, SYSSCLOSE 
#1, PHNSINFORM 
#PHNS_FACSCAN 
#1, PANSINFORM 
#8 PHNS$GB_FLAGS 
#i, PHNSTALK 


#1, PHNSQUEUE_SMB 
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Fil 1 - 
IMILE2 = Fa ile a Record -Sep-1 PHONE .SRCJFI 
ts ttl "PHNSFACSIMILE2 - Facsimile a Record’ 


i Functional Description: 
This steering message routine is called to facsimile the next record 
from the file. 


b 
+ 
F 


i Formal Parameters: 
none 

i Implicit Inputs: 

global data 


i Implicit Outputs: 
: global data 


i Returned Value: 
none 


i Side Effects: 


' 
' 
' 
' 
1 
4 
t 
' 
! 
i 
4 
' 
' 
' 
' 
' 
' 
' 
leo 

global routine phn$facsimile2: novalue = begin 
local 


status: long, 
record_dsc: descriptor; 


! If the facsimile operation has been cancelled, talk a Little message to 
! that effect and bag the operation. 


if not “phnégv facsimile then ( 


phn ath idescribeCistringt (CANCELLED) *. 
char(ret)))); 

$close(fab=facs_ fab); 

return; 
); 
! Read the next record from the file. There are three cases: 
: Te We get a record (even if it is truncated). Build a descriptor 
: for it and talk it into the conversation, with a carriage 
} return. Queue a steering message for the next record. 
: 2. We get end of file. Talk a Little message to that effect and 
cancel the operation. 
i] 


Be We get an 1/O error. Talk a Little message and cancel. 
status = $get(rab=facs_rab); 


electoneu .status of set 

rms$_normal, 

rms$_rtbj: (record degC logd =  facs_rabirabiy_rsg 3 
record dsc(ptr] = .facs_rabLrab$l_rbfj; 
phn$taTk(record_dsc); 
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Os 60D BANSF AT SIMI LED - Facsimile a Record 13-800-1 382 95:03:38 PHONE. SRCIFILECMD$.B32¢1 — ms 
: $} phn$talk(describe(%char(ret))); 
: 3 es phn$queue_smb(smb__facsimile2);); 
; L Crms$_eof): (phnStalk(describe(%string('(EOF)', 
; 240 65 Zchar(ret)))); 
: 241 26 Se lose(fabeters.te0): 
; r ° phn$gv_facsimile = false;); 
: 2446 L 28 Cotherwise): (phnSeath (descr ipeCSesring? CF ILe ERROR)’, 
s 265 Zchar(ret)))); 
: 24 7 $close(fab=facs_fab); 
: 24 i phn$gv_facsimile = false;); 
; 248 7 ter; 
: 249 574 
: 9 575 return; 
3 1 576 1 end; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


OD 29 44 45 4C 4C 45 43 4E 41. 43 28 Q00C P.AAD: ASCII \(CANCELLED)\<13> 
000000 ¢ 0018 P.AAC: . 1 
00000000" 001 “ADDRESS P.AAD 
OD 00020 P.AAF: <ASCII <13> 
0021 "BLKB 3 
90000001 0024 P.AAE: . : 
0000 099° 0028 "ADDRESS P.AAF : 
0D 29 46 4F 45 2 00 ¢ P.AAH “ASCII (EOF) \<13> : 
00000006 00034 P.AAG: :LONG 6 : 
00000000' 90 “ADDRESS P.AAH : 
OD 29 52 4F 52 52 45 20 45 4C 49 46 2 005¢ P.AAJ: “ASCII y FILE ERROR) \<13> : 
00000000 0046 P.AAL: .LONG 13 : 
00000000" 0005 eADDRESS P.AAJ 3 
eEXTRN SYSSGET 
.PSECT $CODE$,NOWRT,2 
000c 00000 ENTRY PHNSEACSIMILE2, Save R2,R3 : 0527 
53 000000006 00 9€ 0000 MOVAB SYSSCLOSE, R : 
22 00006 if H 0 MOVAB PHNSTALK, R2 ; 
OF 00006 CF § E i S #3, PHNSGB_FLAGS, 18 : 0557 
0000' CF 9F 00017 PUSHAB P, : 0539 
62 1 8B 18 CALLS #1, PHNSTALK $ 
0000" Cr 9F 0001 PUSHAB FACS FAB > 0540 
63 1 FB ; CALLS #1, SYSSCLOSE pe 
sooooc 90 0000" SF 3E B9006 18: PUSMAB FACS, Rag ; 0384 
Snug : TD GRP ett 087 
000181A8  8F 0 p A CMPL STATUS. #98728 : 
iF 12 00041 BNEG & : 
| 


voe=000° 


3; Routine Size: 
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LECMDS 
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6E ' CF B 43 2$: MOVW FACS_RAB+34, RECORD_DSC 7 0558 
04 AE ite F 88 4 MOVL §§ FACS"RAB+40, RECORD-DSC+4 : 0889 
‘ DD 0004 PUSHL SP : 0560 

62 FB CALLS #1 eeestALk : 
0000' cr OF PUSHAB P.AAE + 0561 

y 1 FB CALLS #1, PHNSTALK : 
10 DD A PUSHL #16 + 0562 
00006 CF 01 FB Oo CALLS #1, PHNSQUEUE_SMB F ones 
0001827A = BF 50 01 oes 3$: CMPL STATUS, #98938 > 0564 

06 12 000 BNEQ 4$ : 

0000' cf oF B PUSHAB P.AAG : 

4 11 F BRB 5$ : 

0000' cf oF 1 4$: PUSHAB P.AAI : 

62 1 FB 00 i 5$: CALLS #1, PHNSTALK : 
0000" CF 9F 0007 PUSHAB FACS F + 0571 

63 1 FB 0007C CALLS #1, SYSSCLOSE ; 
00006 CF 8 8A 0007F BICB2 #8, PHNSGB_FLAGS : 0572 
04 00084 RET : 0576 
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x beth *PHNSTRANSCRIBE_CMD = Handle TRANSCRIBE Command’ 
i Functional Description: 
: This routine handies the TRANSCRIBE command, which is used to make a 
' transcript of the .onversation. We record the conversation that 
has taken place UP TO THIS POINT, but only for people we are currently 
talking to. 
i Formal Parameters: 
trans_spec The address of the descriptor of the file to receive 
; the transcript. 
i Implicit Inputs: 
global data 
i Implicit Outputs: 
global data 
i Returned Value: 
non 
Side Effects: 
as 


global routine phn$transcribe_cmd(trans_spec): novalue = begin 


bind 
spec_dsc = .trans_spec: descriptor; 
own 
trans_fab: $fab(dnm=".PHN', 
nrszt Se, 
mrs=132, 
org=seq, 
rat=cr, 
rfm=var 
shr=nil), 
trans_rab: $rab(fab=trans_fab, 
rac=seq); 
own ' These variables are OWN because 
page_number : long, ! of up-level referencing. 
ine_counter: long; 
literal 
array_size = 20/pub_k_minlines; 
local 


status: long, 

pub_ar®ay: vectorCarray_size,long], 
ctl-array: vectorCarray_stze, long], 
p: ref pub, cur_p: ref pub, 
min_stamp: long, 

i: Tong, min_i: long, 


c: ref ctl 
Line_buf: block(132, byte); 


| 
FILECMDS FILECMDS File-Oriented Phone Commands 4 AX-11 Bliss-32 V4.0-742 & 11 
vore608 PHNSTRANSCRIGE CMD = Handle TRANSCRIGE Command 1S 3en-1984 Pore se AMONE SaCHP ITE CMDS asset mets 6) 
3 ! This Little routine is called when we get to the bottom of a page ond 
: : i we need to start a new one. It ejects the page and prints some head ngs. | 
3 ij routine page_headings: novalue = begin | 
: 14 ; Local | 
3 (US 8 status: long; 
3 1 6 local 
: : 64 local _described_buffer(fao_buf,132); | 
: 8 
: ’ § Line_counter = 55; 
; ¢ 45 if .page_number gtru 0 then 
3 § transcri e(1 uplit byte(%char(formfeed))); 
: ¢ 64 inc (page_number); 
; § P rok} status = .Stooldescetbes 
; P 0650 PHONE CONVERSATION TRANSCRIPT! _!_!_! !_!_!%D!_!_! Page !2<!UL!>"), 
3 8 P 0651 fao_buf, 
5 9 P 0636 fao_buf, 
3 P 065 
; 1 654 -page_ number) ; 
3 § 55 check (.status); 
; ez 2 famarinat, tox bufClen],.fao buffeted): 
, 3¢ set 4 transcribe(i,uplit byte(fchartret) : 
: 336 poze returns 
s Sor 60 2 end; 


4E 48 50 2€ 00054 P.AAK: .ASCII \; BHN\ : 

00058 P.AAL: .ASCII : 

54 41 53 5 45 56 4 4 43 29 45 4 4F 48 00059 P.AAN: ASCII \PHONE CONVERSATION TRANSCRIPT! _!_!_! ! !\ ; 
21 54 50 4 41 54 : 4E 4F 4 0068 : 
3 SF Al SF 21 «SF 21 af 00 ; 

20 65 67 61 SO SF 34 F 21 F 4 44 25 21 SF 00081 ASCII \_!2D!_!_!_Page !2<!uL!>\ : 
3e 21 4c 55 21 3C 32 @1 0090 : 

900000 F 00098 P.AAM: .LONG 63 : 

0000000" %¢ “ADDRESS P.AAN : 

0D OO0AO P.AAO: ASCII <13> : 


-PSECT SOWNS,NOEXE,2 


-PSECT SPLITS,NOWRT,NOEXE,2 
| 

03 O00E4 TRANS_FAB: | 
| 


6 : - LONG 
Bs : “CONG 


0 


ends 18-50 Sep-1 AX-11 Bliss-32 V4.0-742 
CRIBE Command 1 ~30071 38% 95: 93: * PHONE.S FILECMDS.832; 1 
FB BYTE 
000000 oF Lone 
1 BYTE 
1 BYTE 
1 BYTE 
1 «LONG 
108 - LONG 
1 ‘ » LONG 
11 LONG 
0 ° 114 -ADDRESS P.AAK 
18 BYTE O 
11 BYTE 4 
99 4 11A «WORD 132 
saad * 1} one 0 
61 “BYTE 
01 BYTE 
44444 0124 - LONG 
a a 
3 012E BYTE 8 
0 0012F -BYTE 
LON 
00000000 00130 G 6 «(OO 
01 001 TRANS.RAB: ' 
44 00135 -—BYTE 68 
0000 001 WORD 
0000000 001 - LONG 
44444 013¢ - LONG 
000000 0140 -LONG QO 
4 ad 0144 WORD (3) 
B08 Meg WORD 
00000000 14C - LONG 
8 Be 
ty 
$0 1 é HOR 9 
£88 8 138 - LONG 5 
00 1 f -LONG QO 
4 4 16 -LONG 0 
0000 O16 ere 
189 BYTE 
it 
00 o16 - LONG 
BS Bh ? i "eo FAB 
178 PAGE _NUMBER: 
-BLKB 4 
0017C LINE_COUNTER: 
-BLKB 4 


-EXTRN SYSS$PUT, SYSSFAO 


4 16 

FILECMDS FILECMDS File-Oriented Phone Commands -S$ep-1984 02:09: AX-11 Bliss-32 V4.0-74 
Miva PHNETRANSCRIGE CMS © Handte TRANSERIBE Command oekeb=-1one Soisac58 — PAMGAE ShiseTée MRe%5 2S, Pose 3 
-PSECT SCODES,NOWRT,2 

007C 00000 PAGE_HEADINGS: 

WORD 


.WO Save R2,R3,R4,R5,R6 : 0635 
P FB OAF OSE MOV PAGE HEADINGS, R6 : = 
9990 G 09 : MOVAB SYS$PUT, R5 : 
4 G D MOVAB LIBSSIGNAL, R4 : 
CF : 4 MOVAB LIN COUNTER, R3 : 
c FF ce 19 MOVAB = ; TSP), SP : 
id Bs F OA MOVZBL #1 FAG _BuF + 0640 
04 AF 8 AF MOVAB fFAQ_BUF+8> FAO BUF +4 : 
6 37? D MOVL  #55- LINE COUNTER : 3 
Fe 08 43 b005t [sit PAGE NUMBER 
03 : F4 F SOBGEQ LINE COUNTER, 1$ + 0646 
6 0 FB CALLS #0, PAGE HEADINGS : 
DA A 1 ; 35 1$: VW #1. TRANS RAB+ : 
EO A 0000" CF 9E OVAB P.AAL, TRANS_RAB+40 : 
B8 A3 OF F PUSHAB TRANS : 
65 01 F 4g CALLS #1, SYS$PUT : 
: D 4 MOVL RO STATUS ; 
0 & 9 48 LBS STATUS, 2$ : 
DD 00048 PUSHL STATUS ; 
64 FB 00040 CALLS #1, LIBSSIGNAL : 
FC a3 D6 00050 28: INCL § PAGE_NUMBER + 0647 
FC OASsOD 2 PUSHL PAGE ~NUMBER + 0654 
7E b4 CLRL  =(SPY : 
08 AE 9F 0005 PUSHAB FAO_BUF : 
OC AE 9F 00058 HAB FAO~BUF : 
0000" CF 9F 0005 PUSHAB P F 
000000006 0 5 FB 0006 CALLS #5, SYSSFAO : 
é D 6 MOVL RO STATUS : 
0 E 6C LBS = STATUS, ; 0655 
DD of PUSHL STATUS ; 
64 FB 1 CALLS #1, LIBSSIGNAL : 
03 . F4 00074 3$: SOBGEQ LINE COUNTER, 4$ > 0656 
6 oF 77 CALLS #0, PAGE_HEADINGS ; 
DA A 6— 8B 7A 4$: MOVW FAO_BUF, TRANS RAB+34 : 
£0 A 04 AF p 43 MOVL - FAO“BUF44, TRARS_RAB+40 : 
B8 AS OOF PUSHAB TRANS RAB ; 
$3 : 0 cute RO’ Svat : 
88 E c LBS STATUS, ¥ : 
0D F PUSHL STATUS ; 
64 Fe 1 CALLS #1, LIBSSIGNAL : 
03 es. 94 5$: SOBGEQ LINE COUNTER, 6$ > 0657 
6 6 rB 97 CALLS #0, PAGE HEADINGS ; 
DA A 9A 6$: MOVW #1. TRANS RAB+34 : 
EO A 0099" cr E MOVAB P.AAO, TRANS_RAB+40 : 
B8 AS OF PUSHAB TRANS RAB ; 
$5 1 F A7 CALLS #1, SYSSPUT : 
é D AA MOVL RO STATUS : 
0 fa A BLBS STATUS, : 
DD 0008 PUSHL STATUS ; 
64 FB 000B CALLS #1, LIBSSIGNAL ; 
04 00085 7$ RET : 


| yoteson: FILECMDS File-Oriented Phone Commands 
PHNSTRANSCRIBE_CMD = Handle TRANSCRIBE Command 


S-seont3ee 02:09:16 


— 


_; Routine Size: 182 bytes, Routine Base: SCODE$ + 0107 


AX-11 Bliss s-32 V4.0-742 Page 1 
PHONE .SRCJFILECMDS.6352;1 (6 


Se 
FILECMDS FILECMDS File-Oriented Phone Commands 16-Sep-1 138% Og: gor) AX-11 Bliss-32 V4.0-742 
v04-000 PHNSTRANSCRIBE_CMD = Handle TRANSCRIBE Command 14-Sep-1 1 PHONE. SRCJFILECMDS.B32;1 
39 0661 ! We begin by opening a new file in which to place the transcript. We also 
40 066 i have to connect the RAB so we can write records. If either of these actions 
41 Bye ! fails, tell the user why. 


trans_fabCfab$b ~{ns} = .spec eet ees F 


Now we 9? into our merging loop. On each pass, we find the oldest stamp - 
385 that will merge the conversation text in the most accurate order. For 

each Line we print one Line in the transcript. It contains the converstion 
text and also the speaker's mame unless it's the same speaker as the 


previous Line. 


p7ae- number = 0; 
ine-counter = 0; 
cur_p = 0; 


; 2 
> 344 0666 trans_ ~fab fab$l"fna) = .spec_dsc(ptrJ; 
3 34> 0667 status = $create(fab=trans_fab); 
: 346 0668 if .status nequ rms$_normaT then ( 
3. oer 0669 3 phn$inform(.Status); 
is 3568 0670 3 return; 
13; 349 0671 2); 
is 320 067 ¢ status = $connect(rab=trans_rab); 
ig Zot 067 if .status nequ rms$_normal then ( 
3 326 0674 3 hn$inform(.Status); 
ee 0675 3 close(fab=trans_fab); 
ls p26 0676 3 return; 
13 395 0677 2); 
1; 356 0678 2 
3 $22 perry § ! Now we inform all of «he people that we are going to record them. 
is 559 L 0681 2 caumteaoes | a og 4B (%char ( 
3; 360 L 0682 2 *] AM NOW RECORDING THE CONVERSATION UP TO THIS POINT.', 
i's 361 0683 2 wcher(ret) dd). 
|; 362 0684 2 
i; 365 0685 2 ! Now we are going to set up two arrays, containing entries for each person 
: 4 0686 2 | we are recording. The pub_array contain the address of the person's PUB. 
ig 40? et4 ;? ! The ctl_array contains the address of the oldest CTL on their CTL chain. 
s 367 0689 2 ch$fill(0,%allocation(pub_array) ,pub_array); 
; 368 0690 2 ch$fill(O,Zallocation(ctl_array),ctl array); 
: 369 0691 2p= sphnbaa pubhead(0); 
: 370 0692 2i= 
; aft 0693 2 , 
s Sfe 0694 3 until .p eqla phn$gq_pubhead do ( 
; 373 0695 3 if not .pCpub_v_temporary] and 
: 374 0696 3 not .pCpub_v_uhaveheld]) and 
s . 375 0697 4 not -pLpub- v_hasuheld] then ( 
:- 376 0698 4 
: 7 0699 4 pub_arrayl.i] = .p; 
; 38 0700 4 ctl “arrayl.il = -ptpub_q_ctlhead1]; 
; 379 0701 4 inc (i); 
: 380 0702 3 ); 
; 381 0703 3 p = .pCpub_l_flink); 
3 388 704 § TF 
; 705 
; «6384 06 2 
le 2 
iz 2 
i 3 2 
;  S 
le 2 
Is 2 
3 
3 3 


loop ( 


<-_ 
Ce 


Be Be Oe Be Be Oe Be Oe BH Oe Oe Be Se Be Be BH He Se He Se He Be Be Oe Be Oe Oe FH Se Oe Se Se Oe Oe Be OH Oe Oe Se HH SES Oe Oe Oe BH Se SH Se Oe OH SHS ee oe 


FILECMDS 
v04-000 


POPOPOMoNotY 3 ss tO 


5 ak kh ee ee a ee ee ee ee ee De 
Mrmr 


AO 
m=z 
ro 
2u 
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File-Oriented Phone Commands 19~3e0" 138% 96:09:16 AX-11 Bliss-32 V4.0-742 Page 1 
SCRIBE_CMD = Handle TRANSCRIBE Command 14-Sep-1984 12:53:2 PHONE .SRCJFILECMDS.B32;1 (7 


' Loop FReougn arrays and find minimum stamp. If there are no 
! CTLs Left to merge, we're done. 


min stamp = -1; 
incru i from 0 to array size-1 do 
if -ctlecrayl.Td nequ 0 then ( 
in 


om 


c = .ctllarrayl.il: ctl; 


if .c{ctl_l_stamp] lssu .min_stamp_then ( 
min_stamp = .c{ctl_lostamp]; 
min_i = .i; 
3 
); 


exitif (.min stamp eqlu -1); 


! If this is a different person from the last Line, then put the 
: person's name on the beginning of the Line. Otherwise just clear 
! the beginning of the Line. 


if .pub_arrayC.min_i] neqa .cu 
cur_p = .pub_arrayl.min_ij; 
transcribe(1,uplit bytet&%char(ret))); 
begin 
bind 


r_p_then ( 


new_tsb = cur_p[pub_b_tsb]: tsb i 
new_dsc = new_ts [tSb7q_tkndsc,0): descriptor; 


ehScopyt no Sock tens,.ou_ soci eters,” *,40,Line_buf); 
end; 


ch$fill(" *,40,Line_buf); 


' Move the conversation text into the Line. 


) else 


_ectllarrayl.min_id; 
n 


Line_Usc = c{ctl_q_line]: descriptor; 
ch$move(.line_dscClenJ,.line_dscCptrJ,line_buf+40); 
transcribe 40*. Line_dsceflend;Line_buf); 
end; 


! Now we move to the previous CTL on this person's chain. If 
! there isn't one, then zero the ctl_array entry. 


ctl_arrayC.min_i] = (if ocbetlt bling) eqlu cur_pCpub_q_ctlhead0] 


3 
4 
4 
4 
4 
5 
5 
5 
4 
3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
5 
5 
5 
5 
5 
5 
4 
3 
; 
3 
3 
| 
4 
4 
4 
4 
3 
3 
3 
4 
& en . 

3 else .c{ctl_l_blink]); 

2 a 

; ' ALL done. Close the transcription file and refresh the screen. 
2 


$close(fab=trans_fab); 
phn$fresh_screenTtfalse); 


~ 


IN 


< 
Oo 


LL 
Pe Se Se Se ee Se Se Se Se Se Se SH ee Be FH Se Se SF Se Se Se Se SH See Se Se Se oe FEB oe 


1 
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v04-000 PHNSTRANSCRIBE_CMD = Handle TRANSCRIBE Command 14-Sep-1984 12:53:2 PHONE «eR FILECMDS. B32;1 (7) vO 
: 453 0775 return; 
: 4546 0776 
s 655 0777 1 end; 


-PSECT $PLITS,NOWRT,NOEXE,2 


4F 63 465 S52 20 S7 GF 4E 20 4D 41 20 49 OD OOOA1 P.AAQ: ASCII <13>\1 AM NOW RECORDING THE CONVERSATION ; 
45 56 GE GF 43 20 45 48 54 20 47 GE 49 44 00080 ; 
4F 49 54 41 53. O00BF : 
F 50 20 53 49 468 546 20 4F 54 20 50 55 20 3 000C4 .ASCII \N UP TO THIS POINT.\<13> : 
OD 2€ 54 4E 49 00003 : 
00000037 000DB P.AAP: .LONG 55 : 
00000000" 0000¢ TADDRESS P.AAQ : 
OD OOOEO P.AAR: .ASCII <13> : 
.EXTRN SYSSCREATE 
.PSECT S$CODE$,NOWRT,2 
OFFC 00000 ENTRY PHNSTRANSCRIBE_ CMD, Save R2,R3,R4,R5,R6,R7,-; 0603 
SE FF4C CE 9E€ 00002 MOVAB -180(SP), SP : 
50 04 AC 00 00007 MOVL  _TRANS_SPEC, RO + 0606. 
0000' CF 60 90 0000B MOVB (RO) , "TRANS FAB+52 > 0665, 
0000" CF 04 AO DO 00010 VL 4(ROS, TRANS _FAB+44 > 0666 
0000" CF 9F 00016 PUSHAB TRANS FAB + 0667 
000000006 00 01 FB OOO1A CALLS #1, SYSSCREATE : 
5B 50 DO 00021 MOVL TUS F 
00010001 =F 5B D1 00024 CMPL _—s STATUS, #65537 + 0668. 
08 13 00028 BEQL ~=sésdS$ : | 
5B DD 00020 PUSHL STATUS > 0669 
00006 CF 01 FB 000¢F CALLS #1, PHNSINFORM : 
04 00034 RET > 0668 | 
0000" CF 9F 00035 1$: PUSHAB TRAN RAB : 0672. 
000000006 00 01 FB 00039 CALLS #1, MR PS SEONNECT : 
5B 50 pO 00040 MOVL RO. STATU : 
00010001 + &F 5B D1 00043 CMPL _—s STATUS, #65537 + 0673 
13 13 OO04A BEQL 2% ; | 
5B 0D 0004C¢ PUSHL STATUS > 0674 
00006 CF 01 FB DO04E CALLS #1, PHNSINFORM : 
0000" CF 9F 0005 PUSHAB TRANS FAB > 0675 
000000006 00 01 FB 90047 CALLS #1, SYSS$CLOSE : 
04 0005€ RET > 0673 
0000' CF 9F OOOSF 2s: PUSHAB P.AAP > 0683 
00006 CF 01 FB 00063 CALLS #1, PHNSTALK : 
18 00 6E “ 00 2c 00068 movCS #0. (SP), #0, #24, PUB_ARRAY > 0689 
18 00 6E we 00 2c 0006 MOVCS #0, (SP), #0, #24, CTL_ARRAY > 0690 
51 00006 CF DO 00076 MOVL  PHNS$GQ_PUBHEAD, P > 0691 
50 D4 00078 CLRL > 0692 
52 00006 CF 9€ 0007D 3$: MOVAB PHNSGQ_PUBHEAD, R2 > 0694 
52 51 D1 00082 CMPL = iP, -R2 : 
23 13 0008 BEQL=SsSS : 
52 OOFO C1 9E 00087 MOVAB 240(P), R2 > 0695 


oontr OO NM 


F 1 
FILECMDS File-Oriented Phone Commands 16-Se 40 AX-11 Bliss-32 V4.0-742 Page 18 
PHNSTRANSCRIBE _CMD = Handle TRANSCRIBE Command 12-388-1 3b 6: 93: 8 PHONE. SRCIFILECMDS.. B32;1 alt 
15 a 02 EO 008 BBS W2 (R2), ; 
1 E8 0009 BLBS Re) 4$° + 0696 
OE 1 £0 0009 BBS Hi, (R2) + 0697 
EB AD4 1 00 00097 MOVL *PUB_ARRAYLI] : 0699 
DO AD4O 0108 ¢1 00 0009¢ MOVL Bbacbor CTL_ARRAYCIJ : 0700 
50 D6 OOOA INCL I : 0701 
51 61 DO 000A5 48 MOVL (P), P + 0703 
D3 11 O00A8 BRB + 0694 
0000" CF 7C OOOAA 5$ CLRG  PAGE_NUMBER + 0712 
57 D4 OOOAE CLRL UR_ > 0714) 
SA 01 CE 000B0 6$ MNEGL #1, ~MIN_STAMP + 0721. 
51 04 00083 CLRL ; 0726 
50 DO AD41 DO 00085 7$ MOVL § CTL_ARRAYCIJ, RO + 0723. 
0D 13 OOOBA BEQL 8$ ~ : 
SA 0c AO D1 000BC CMPL = 12(RO), MIN_STAMP : 0727. 
07 1€ 000C0 BGEQU 8$ ; | 
SA 0c AO 00 000C2 MOVL 12¢ 4 te MIN_STAMP ; 0728 
58 51 DO 000C6 MOVL I, MINI + 0729 
51 D6 000C9 8$ INCL I : 0723. 
05 51 D1 000CB CMPL a5 ; | 
E5 1B OOOCE BLEGU : 
FEFFFFFF © 8F 5A 01 00000 CMPL MIN_STAMP, #=1 : 0733 
03 12 000D7 BNEQ 9$ : 
00AB 31 00009 BRW 18$ : 
57 E8 AD48 D1 OOODC 9$ CMPL PUB ARRAY CMIN_ 1], CUR_P ; 0739 
42 13 000E1 BEQL 1287 : 
57 E8 AD4 DO O00E3 MOVL PUB ARRAYCMIN_ 1] CUR_P ; 0740 
05 0000" CF F4 OO0E8 SOBGEQ LINE COUNTER, —10$ + 0741 
CF 00 FB OOOED CALLS #0, PAGE NE ASINGS : 
0000" CF 01 8B0 O00F¢ 10$ MOVW #1, TRANS RAB+34 : 
0000" CF 0000" CF 9E OOOF MOVAB P.AAR, TRENS _RAB+40 : 
0000" CF 9F OOOFE PUSHAB TRANS RAB : 
000000006 00 01 FB 00102 CALLS #1, SYS$PUT : 
5B 50 DO 00109 MOVL 0; STATUS ; 
09 5B £8 0010C BLBS STATUS, 11$ : 
5B DD 0010F PUSHL STATUS ; 
000000006 00 01 FB 00111 CALLS #1, LIBSSIGNAL ; 
50 10 AZ 9€ 00118 11$:  MOVAB  16(CURP), > 074 
28 20 04 B80 60 2¢ O01 1¢ MOVCS (RO), 34(RO), #32, #40, LINE_BUF > 074 
06 11 $0138 BRB 13$ : 073 
28 20 6E 00 2c 00125 12$: MOVCS #0, (SP), #32, #40, LINE_BUF > 075 
56 DO AD48 DO B01 68 13$: MOVL CTL ARRAYCMIN_I], C ; 075 
59 10 A6 4 01 MOVAB 16(C), R9 : 975 
28 «AE 04 89 69 28 00134 MOVC3 (R9), a@4(R9), LINE_BUF +40 > 075 
05 0000" CF F4 OO13A SOBGEQ LINE C NTE 2 : 076 
FEQ6 CF 00 FB 0013F CALLS #0, PAGE HEADINGS : 
0000" CF 69 28 Al 00144 148: ADDW3 «#40 Choy” TRANS RAB+34 ; 
0000" CF 6E 9E O014A MOVAB  LINE_BUF, TRANS_RAB+40 ; 
0000° CF 9F O014F PUSHAB TRANS RAB ; 
000000006 00 01 FB 00153 CALLS #1, SYS$PUT : 
58 50 pO 0015A MOVL RO. STATUS ; 
09 5B EB 90150 BLBS STATUS, 15$ ; 
5B 0D 00160 PUSHL STATU ; 
000000006 00 01 FB 00162 CALLS L BSS 1GNAL ; 
50 0104 C7 9E 00169 15% MOVAB 5O6( > 0766 


FILECMDS 
v04-000 


; Routine Size: 


456 
457 


Name 
SOWNS 


SPLITS 
$CODES 


File 


_$255$DUA28: CSYSLIBISTARLET.L32;1 


FIL 
PHNSTRANSCRIBE _CMD = Handle TRANSCRIBE Command 


0778 
0779 


ECMDS File-Oriented Phone Commands 


50 04 


50 
DO AD48 


> 

c 

000000006 00 
0000G CF 0 


@ ono "OwWoOo-9°o-9 
£oron—-0O0—- fr 
pole lelolel el ealelojleil ojo) 
jeoleleleleleleleleleleia) 
ed ed and ad age aed ae cn cae a cd ed 


407 bytes, Routine Base: $CODES + 0} 


1 
0 end eludom 


PSECT SUMMARY 
Bytes Attrib 
NOVEC, WRT, RD ,NOEXE,NO 


NOVEC,NOWRT, RD ,NOEXE,NO 
NOVEC,NOWRT, RD, EXE,NO 


384 
225 
852 
Library Statistics 


eran Symbols 
Total Loaded 


9776 &e 


Percen 


COMMAND QUALIFIERS 


AX-11 B eo3¢ vo 
71984 13:53:25 EPHONE. SR 
CMPL 4(C), RO 
BNEQ 16$ 
CLRL Rg 
BRB 17$ 
MOVL 4(C), RO 
MOVL RO, CTL_ARRAYCMIN_IJ 
BRwW 6$ 
PUSHAB ha NS_FAB 
CALLS #1, SYSSCLOSE 
LRL- = (SP) 
te #1, PHNSFRESH_SCREEN 
-EXTRN LIBSSIGNAL 
utes 
SHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SHR, LCL, REL, CON,NOPIC,ALIGN(2) 
° Pages Processing 
t Mapped Time 
0 581 00:00.8 


742 p 
Sipe chDS Boost a 


Bete Se Se Se Se Ge Se Se Be Be Se 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:F ILECMDS/OBJ=OBJ$:FILECMDS MSRC$:F ILECMDS/UPDATE=(ENHS:F ILECMDS) 


Size: 

Run Time: 
Elapsed tage 
Lines/CPU M 


852 code + 609 data bytes 
00:14 


01:06. 
594 


Lexemes/CPU-Min: 43Sou 


‘emma 
| 


<e 
Of 


Re Oe Oe Be Oe Ge Oe Se Ge Be Se Se Se Se Be Be Se ee BH Se Se Se Se Be Oe Se Be Oe Se Be Se Se Se ee Se SOSH ee Se Oe SH SH Se oe 
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E Menory Used: 190 pages 
|; Compilation Complete 


TS OO 


0304 QH-8113A-SE D = 


I 
VAX/VMS V4.0 CO 


GITAL EQU 
NF I 


I 
DENTIAL 


MENT CORPORATION 
AND 


PROPRIETARY 


Se ee eee == ae 9 — 
Ny 'T 


OT AT TAL EQUIPME 


CONFIDENTIAL "AND "SEDPRIC TART O. i ae. 


-_ Tal - C 


